2 IFA%=0THENPOKE52,128:POKE56,128:CLR:GOSUB308
4 A%=A%+1:IFA%<3THENLOAD"SS.ML"+RIGHT$(STR$(A%),1),8,1
6 POKE56576,197:POKE53272,8
8 POKE648,128:GOTO176
10 SYSS(.):SYSS(8),V(9):POKE54290,128:H=.:IFL=OTHENPOKEV(2),.
12 Q=50-L*3:IFQ<25THENQ=25
14 SYSS(O):E=PEEK(V(8)):ONEGOTO18,26,20,16
16 SYSS(8),V(9):POKE54290,128
18 FORI=.TOQ:NEXT:GOTO14
20 I=.:POKE53269,6
22 I=O-I:POKE33785,189+I:POKE33786,184+I:POKET,PEEK(T)-8:POKEU,PEEK(U)+8
24 FORJ=1TO50:NEXT:IFPEEK(T)>8ANDPEEK(U)<210THEN22
26 FORI=.TO500:NEXT:P=32-PEEK(V(3)):POKE53269,.:SYSS(9):PRINT"[147]":POKE53264,.
28 POKE53271,O:POKE53277,O:POKE53276,O:POKE198,.
30 IFE=2THENPRINT" YOU'RE OUT OF FILM!":GOTO34
32 PRINT" THE MONKEY TOOK YOUR CAMERA!":G=G+O
34 PRINT"[158] RETURNING HOME...":GOSUB88:POKE53280,11:POKE53281,15
36 PRINT"[147]WELL, LET'S SEE WHAT YOU'VE GOT FOR ME  THIS TIME..."
38 PRINT" (PRESS SPACE OR FIRE...)":GOSUB82
40 PRINT"[147]":POKE53281,5:SYSS(4):I=-O
42 PRINTD$E$:I=I+O:IFI=PTHEN94
44 POKEV(8),I:SYSS(5):POKE53275,O:A=INT(PEEK(33784)/2-80):IFA<.THENA=14
46 C=21-PEEK(V(8)):Z=D(A):D=Z*C/20:IFA>11THENPOKE53275,.
48 J=PEEK(V)-160:K=PEEK(W)-112:IFK<Y(A)THENK=K*2:GOTO52
50 IFK<3ANDJ=.ANDPEEK(33107)<>32THENPOKE53275,.
52 R=O-(J^2+K^2)^.5/64:IFR<.THENR=.
54 R=R*R:D=INT(D*R+.5):B=B+D:S=S+D:F=.:A=A-(A>6):A=INT(A/2):A(A)=A(A)+O
56 IFA(A)>9ANDZ>.THENJ=D:D=INT(D/2):B=B-J+D:S=S-J+D:F=INT(RND(O)*2+18):GOTO78
58 IFZ>.THENZ=D/Z
60 IFZ<.75THEN68
62 F=INT(RND(O)*2):IFH>6THENF=F+5:GOTO78
64 F=F+O:IFZ<.9THENF=F+2
66 GOTO78
68 IFD=.ANDRND(O)>.5THENF=15:GOTO78
70 J=INT(RND(O)*2):IFH>.ANDH<5THENF=J+13:GOTO78
72 IFR<.3THENF=J+7:GOTO78
74 IFC<16THENF=J+9:GOTO78
76 IFZ<.25THENF=J+11
78 A$=STR$(D):A$=RIGHT$(A$,LEN(A$)-O)
80 PRINTD$C$(F)TAB(35)"$"A$"";:H=F:GOSUB82:GOTO42
82 SYSS(6):J=PEEK(V(8)):IF(JAND16)=.THEN82
84 SYSS(6):J=PEEK(V(8)):IF(JAND16)THEN84
86 RETURN
88 POKE54296,15:POKE54277,16:POKE54278,.:FORI=5TO9:POKE54272,.:POKE54273,I
90 FORJ=.TO240STEP24:POKE54272,J:POKE54276,129:POKE54276,128:FORK=1TO80-6*I
92 NEXTK,J,I:RETURN
94 IFE<>3THEN102
96 PRINTD$E$:SYSS(7):POKE53275,.:POKE53287,10:POKE33784,189
98 POKEV,160:POKEW,112:POKE53269,O:PRINTD$C$(INT(RND(O)*3+15))"";
100 GOSUB82
102 POKE53269,.:SYSS(3):A$=STR$(B):A$=RIGHT$(A$,LEN(A$)-O)
104 POKE53280,11:POKE53281,0:PRINT"[147]"TAB(13)"[154]MONEY    $"A$:IFG=3THEN122
106 IFE=3THENB=B-500:PRINTTAB(13)"[154]CAMERA   [158]- 500"
108 PRINTTAB(13)"[154]FILM     [158]-  10":PRINTTAB(13)"[154]TRIP     [158]-1000":B=B-1010
110 PRINTTAB(22)"[154]------":A$=STR$(B):A$=RIGHT$(A$,LEN(A$)-O)
112 IFB<.THENPRINTTAB(21)"-";
114 PRINTTAB(22)"$"A$
116 IFB<.THENPRINTTAB(7)"YOU CAN'T AFFORD THE TRIP!":B=B+1000:GOTO124
118 PRINT"[154]   YOUR CHOPPER IS READY AND WAITING.":FORI=.TO7:A(I)=.:NEXT:L=L+O
120 PRINTTAB(6)"[156]VOYAGE"L"INTO THE JUNGLE...":GOSUB88:GOTO10
122 PRINT"    YOU HAVE LOST TOO MANY CAMERAS!!"
124 IFS>99999THENS=99999
126 FORI=1TO2000:NEXT:A$=STR$(S):I=LEN(A$):A$="FINAL SCORE:"+A$:I=INT(14-I/2)
128 PRINT"[147]"TAB(I)A$:IFS=<H(9)THENGOSUB82:GOTO150
130 J=9:FORI=9TO.STEP-O:IFS>H(I)THENJ=I
132 NEXT:IFJ=9THEN136
134 FORI=9TOJ+OSTEP-O:H(I)=H(I-O):N$(I)=N$(I-O):NEXT
136 H(J)=S:N$(J)="":I=.:K=5:PRINT"   YOU HAVE MADE IT INTO THE TOP TEN!"
138 PRINT"   YOUR NAME PLEASE: [151]................[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
140 PRINTCHR$(K)".[157]";:K=156-K:GETA$:IFA$=""THEN140
142 IFA$=CHR$(20)ANDI>.THENPRINT"[151].[157][157]";:I=I-O:N$(J)=LEFT$(N$(J),I):GOTO140
144 IFA$=CHR$(13)ANDI>.THEN150
146 IFI=15OR(A$<"-"ANDA$<>" ")OR(A$>"9"ANDA$<"A")ORA$>"_"THEN140
148 PRINTA$;:N$(J)=N$(J)+A$:I=I+O:GOTO140
150 POKE53280,.:POKE53281,.:PRINT"[147]";
152 FORI=.TO5:PRINTTAB(9)"[156]****  TOP SCORES  [156]****":NEXT:PRINT"";:FORI=.TO4
154 PRINTE$:NEXT:PRINT"":K=22:FORI=.TO9
156 A$=STR$(H(I)):A$=LEFT$("00000",6-LEN(A$))+RIGHT$(A$,LEN(A$)-O)
158 A$="[159]"+N$(I)+LEFT$(E$,15-LEN(N$(I)))+"  "+A$
160 IFI<>2*INT(I/2)THEN166
162 FORJ=OTOK:PRINTRIGHT$(A$,J)"[145]":NEXT
164 FORJ=OTO9:PRINTLEFT$(E$,J)A$"[145]":NEXT:GOTO170
166 FORJ=OTOK:PRINTTAB(39-J)LEFT$(A$,J)"[145]":NEXT:FORJ=38-KTO9STEP-O
168 PRINTTAB(J)A$" [145]":NEXT
170 PRINT:NEXT:I=99
172 SYSS(6):J=PEEK(V(8)):IF(JAND16)=.THEN218
174 I=I-O:IFI>.THEN172
176 PRINT"[147]"CHR$(142):POKE53280,11:POKE53281,.
178 POKEV(4),.:POKEV(5),10:POKEV(6),.:POKEV(7),11
180 POKE54277,.:POKE54278,48:POKE54296,143:POKE54276,33:FORI=.TO255STEP5
182 POKE54273,I:NEXT:POKE54276,32:SYSS(2):FORI=10TO250STEP10:POKEV(5),I:NEXT
184 POKE54273,40:POKE54276,129:POKE54276,128:FORI=250TO10STEP-10:POKEV(5),I:NEXT
186 SYSS(3):POKE53281,.:POKE54273,15:POKE54276,129:POKE54276,128
188 PRINT"[147][153]"TAB(14)"[164][164][164][164][164][164][164][164][164][164][164][164]"CHR$(13)TAB(12)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
190 PRINTTAB(7)"[159][164][175][185][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][185][175][164]"
192 PRINTTAB(7)"  P H O T O[160][160][160]S[160]A[160]F[160]A[160]R[160]I "
194 PRINTTAB(7)"[154][163][183][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][183][163]"
196 PRINTTAB(14)"[164][164][164][164][164][164][164][164][164][164][164][164]"CHR$(13)TAB(12)"[145][145][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
198 PRINTTAB(10)"[154]@'89 BY JON MATTSON"
200 PRINTTAB(10)"[156]USE PORT [159]2 [156]JOYSTICK"
202 PRINTTAB(10)"[150]KEYS:    [158]I    [150]SPACE"
204 PRINTTAB(18)"[158]U O     =":PRINTTAB(17)"[158]J   K  [150]FIRE[209]"
206 PRINTTAB(18)"[158]N ,":PRINTTAB(19)"[158]M":PRINTTAB(10)"[156]PRESS [150]FIRE [156]TO START"
208 PRINTTAB(11)"[156]PRESS '[150]Q[156]' TO QUIT":FORI=.TO500:NEXT:I=150
210 SYSS(6):J=PEEK(V(8)):IF(JAND16)=.THEN218
212 GETA$:IFA$="Q"THEN222
214 I=I-O:IFI>.THEN210
216 GOTO150
218 POKEV(.),12:POKEV(O),3:B=1010:E=O:G=.:H=.:L=.:S=.:I=PEEK(53278)
220 FORI=54272TO54295:POKEI,.:NEXT:GOTO102
222 PRINT"[147][150]QUIT? ARE YOU SURE [Y[150]/N[150]]? ";
224 GETA$:IFA$="N"THEN176
226 IFA$<>"Y"THEN224
228 PRINTA$:PRINT"[159]SAVE HIGH SCORES [[154]Y[159]/[154]N[159]]? ";
230 GETA$:IFA$="N"THEN242
232 IFA$<>"Y"THEN230
234 OPEN15,8,15:PRINT#15,"S0:SS.HI":INPUT#15,J:IFJ>OANDJ<>62THEN240
236 OPEN2,8,2,"0:SS.HI,S,W":INPUT#15,J:IFJ>.THEN240
238 FORI=.TO9:PRINT#2,N$(I):PRINT#2,H(I):NEXT
240 CLOSE2:CLOSE15
242 POKE56576,199:POKE53272,21:POKE648,4:PRINT"[154][147]";:POKE53280,14:POKE53281,6
244 POKE52,160:POKE56,160:CLR:GOTO326
246 DIMA(7),D(14),H(9),S(9),V(9),Y(14),C$(19),N$(9)
248 FORI=.TO7:S(I)=38094+3*I:V(I)=S(.)+24+I:NEXT:S(8)=52222:S(9)=52225
250 V(8)=780:V(9)=45760:O=1:V=53248:W=V+O:T=V+4:U=V+5:I=RND(-TI)
252 A=.:B=.:C=.:D=.:E=.:F=.:G=.:H=.:J=.:K=.:L=.:P=.:Q=.:R=.:S=.:Z=.
254 FORI=.TO14:READD(I),Y(I):NEXT:D$="":FORI=1TO23:D$=D$+"":NEXT:D$=D$+" "
256 FORI=1TO38:E$=E$+" ":NEXT:FORI=.TO19:READC$(I):NEXT
258 DATA 90,-4,90,-4,60,-12,60,-12,120,-4,120,-4,140,-10,180,-2,180,-2
260 DATA 50,-4,50,-4,100,-4,100,-4,0,-99,0,-99
262 DATA "[151]HMMM..."
264 DATA "HUMPH. NOT HALF BAD."
266 DATA "HEY, THAT'S ALMOST GOOD..."
268 DATA "[149]WELL, IT'S NOT YoUR BEST, BUT..."
270 DATA "[149]YOU MIGHT JUST EARN YOUR KEEP."
272 DATA "[153]WELL, YOU'RE GETTING BETTER..."
274 DATA "[153]THERE MAY BE HOPE FOR YOU YET."
276 DATA "[158]NOW THERE'S A NOVEL ANGLE..."
278 DATA "[158]AN ANIMAL ALMOST GOT IN THE WAY!"
280 DATA "[158]EVER THINK OF TAKING UP BOTANY?"
282 DATA "[158]NICE LANDSCAPE SHOT..."
284 DATA "DO YOU LEAVE THE CAP ON, TOO?"
286 DATA "I HEAR THE ENQUIRER IS HIRING..."
288 DATA "[158]MAYBE YOU SHOULD TRY AIMING...."
290 DATA "[158]AH, BACK TO NORMAL..."
292 DATA "[144]UH, HUH..."
294 DATA "[151]MAYBE I'LL HIRE THE MONKEY..."
296 DATA "[151]I DON'T WANT TO KNOW..."
298 DATA "YOU REALLY LIKE THOSE, DON'T YOU?"
300 DATA "OK, ENOUGH ALREADY!"
302 OPEN15,8,15:OPEN2,8,2,"0:SS.HI,S,R":INPUT#15,J
304 IFJ=.THENFORI=.TO9:INPUT#2,N$(I):INPUT#2,H(I):NEXT
306 CLOSE2:CLOSE15:RETURN
308 POKE53280,.:POKE53281,.
310 PRINTCHR$(14)"[147]  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
312 FORI=1TO7:PRINT"  [152]                                    ":NEXT
314 PRINT"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]";
316 PRINTTAB(8)"[152][208] [200][160][207] [212][160][207] [160][160][211][160][193] [198][160][193] [210] [201]":PRINTTAB(8)"([195]) 1989 [194]Y [202]ON [205]ATTSON"
318 PRINTTAB(7)"[208]UBLISHED ON  [204][207][193][196][211][212][193][210] #69
320 [153][163]6)"(null)UBSCRIPTIONS 1-800-831-2694"
322 [153][163]4)"(null)(null)(null)VALATNSTR$CLOSE(null)LEFT$VALCLOSE(null)(null)(null)STR$ ATN(null)STR$CLOSE(null)(null)(null)CLOSE(null)LEFT$VALCLOSESTR$RIGHT$(null)(null)"
324 [153][163]15)"CONT(null)OADING...":[141]246:[142]
326 [159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER:[160]15
328 [139]ER[179][177]63[167][128]
330 [153]"LOADRETURNING TO LOADSTAR...":[153]"LOAD"[199](34);
332 [153]"HELLO CONNECT"[199](34)",8":[153]"RUNONONONONONONONON":[151]631,13
334 [151]632,13:[151]633,13:[151]198,3:[162]
10000 [159]15,8,15,"S0:PHOTO SAFARI":[160]15:[148]"PHOTO SAFARI",8:[128]